Presentation Ninja

.title[
# Presentation Ninja
]
.subtitle[
## with xaringan
]
.author[
### Yihui Xie
]
.date[
### 2016/12/12
]

---

One slide.

---

The other.

```r
knitr::kable(head(iris), 'html')
```

---

class: center
background-image: url("data:image/png;base64,#images/cool.jpg")
background-position: center
background-size: cover

# A new slide

Content.

---

The holy passion of Friendship is of so sweet and steady
and loyal and enduring a nature that it will last through
a whole lifetime...

???

_if not asked to lend money_.

--- Mark Twain

---

# Level 1 Title

## Level 2 Title

Text

Pictures like this

![Image of Momtocat](data:image/png;base64,#http://bit.ly/momtocat)

---

# Incremental reveals

# Hi there

My name is Alison

--
I like hot toddies

`#rdogladies`

and babies

---

sss
]

---

# Left Column

.left-column[
what did you say?
![Image of Momtocat](data:image/png;base64,#http://bit.ly/momtocat)
The left has only

## 25%

Holy Shit
]

.right-column[
you'd better
![Image of Momtocat](data:image/png;base64,#http://bit.ly/momtocat)
But
]

---

# Code Hightlight

```r
library(babynames)
```

```
## Warning: package 'babynames' was built under R version 4.2.3
```

```r
library(tidyverse)
```

```
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.4.2     ✔ purrr   1.0.1
## ✔ tibble  3.2.1     ✔ dplyr   1.1.0
## ✔ tidyr   1.3.0     ✔ stringr 1.5.0
## ✔ readr   2.1.4     ✔ forcats 1.0.0
```

```
## Warning: package 'ggplot2' was built under R version 4.2.3
```

```
## Warning: package 'tibble' was built under R version 4.2.3
```

```
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
```

```r
tx_names <- babynames %>%
  filter(name == "Dallas" | 
         name == "Austin") %>%
  filter(sex == "F") 
*glimpse(tx_names)
```

```
## Rows: 171
## Columns: 5
## $ year <dbl> 1892, 1894, 1896, 1899, 1900, 1903, 1904, 1905, 1906, 1907, 1908,…
## $ sex  <chr> "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "F", …
## $ name <chr> "Dallas", "Dallas", "Dallas", "Dallas", "Dallas", "Dallas", "Dall…
## $ n    <int> 9, 6, 7, 6, 9, 9, 9, 12, 8, 7, 14, 11, 20, 19, 24, 16, 28, 30, 5,…
## $ prop <dbl> 4.002e-05, 2.543e-05, 2.778e-05, 2.424e-05, 2.832e-05, 3.235e-05,…
```

---

```r
head(babynames)
```

```
*## # A tibble: 6 × 5
##    year sex   name          n   prop
*##   <dbl> <chr> <chr>     <int>  <dbl>
## 1  1880 F     Mary       7065 0.0724
## 2  1880 F     Anna       2604 0.0267
## 3  1880 F     Emma       2003 0.0205
## 4  1880 F     Elizabeth  1939 0.0199
## 5  1880 F     Minnie     1746 0.0179
## 6  1880 F     Margaret   1578 0.0162
```

---

# Other Output

### Kable

```r
head(babynames) %>% knitr::kable(format = "html")
```

<table>
 <thead>
  <tr>
   <th style="text-align:right;"> year </th>
   <th style="text-align:left;"> sex </th>
   <th style="text-align:left;"> name </th>
   <th style="text-align:right;"> n </th>
   <th style="text-align:right;"> prop </th>
  </tr>
 </thead>
<tbody>
  <tr>
   <td style="text-align:right;"> 1880 </td>
   <td style="text-align:left;"> F </td>
   <td style="text-align:left;"> Mary </td>
   <td style="text-align:right;"> 7065 </td>
   <td style="text-align:right;"> 0.0723836 </td>
  </tr>
  <tr>
   <td style="text-align:right;"> 1880 </td>
   <td style="text-align:left;"> F </td>
   <td style="text-align:left;"> Anna </td>
   <td style="text-align:right;"> 2604 </td>
   <td style="text-align:right;"> 0.0266790 </td>
  </tr>
  <tr>
   <td style="text-align:right;"> 1880 </td>
   <td style="text-align:left;"> F </td>
   <td style="text-align:left;"> Emma </td>
   <td style="text-align:right;"> 2003 </td>
   <td style="text-align:right;"> 0.0205215 </td>
  </tr>
  <tr>
   <td style="text-align:right;"> 1880 </td>
   <td style="text-align:left;"> F </td>
   <td style="text-align:left;"> Elizabeth </td>
   <td style="text-align:right;"> 1939 </td>
   <td style="text-align:right;"> 0.0198658 </td>
  </tr>
  <tr>
   <td style="text-align:right;"> 1880 </td>
   <td style="text-align:left;"> F </td>
   <td style="text-align:left;"> Minnie </td>
   <td style="text-align:right;"> 1746 </td>
   <td style="text-align:right;"> 0.0178884 </td>
  </tr>
  <tr>
   <td style="text-align:right;"> 1880 </td>
   <td style="text-align:left;"> F </td>
   <td style="text-align:left;"> Margaret </td>
   <td style="text-align:right;"> 1578 </td>
   <td style="text-align:right;"> 0.0161672 </td>
  </tr>
</tbody>
</table>

]

### gt

```r
library(gt)
```

```
## Warning: package 'gt' was built under R version 4.2.3
```

```r
head(babynames) %>% gt()
```

<div id="cxuxjschmi" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;">
<style>#cxuxjschmi table {
  font-family: system-ui, 'Segoe UI', Roboto, Helvetica, Arial, sans-serif, 'Apple Color Emoji', 'Segoe UI Emoji', 'Segoe UI Symbol', 'Noto Color Emoji';
  -webkit-font-smoothing: antialiased;
  -moz-osx-font-smoothing: grayscale;
}

#cxuxjschmi thead, #cxuxjschmi tbody, #cxuxjschmi tfoot, #cxuxjschmi tr, #cxuxjschmi td, #cxuxjschmi th {
  border-style: none;
}

#cxuxjschmi p {
  margin: 0;
  padding: 0;
}

#cxuxjschmi .gt_table {
  display: table;
  border-collapse: collapse;
  line-height: normal;
  margin-left: auto;
  margin-right: auto;
  color: #333333;
  font-size: 16px;
  font-weight: normal;
  font-style: normal;
  background-color: #FFFFFF;
  width: auto;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #A8A8A8;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #A8A8A8;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
}

#cxuxjschmi .gt_caption {
  padding-top: 4px;
  padding-bottom: 4px;
}

#cxuxjschmi .gt_title {
  color: #333333;
  font-size: 125%;
  font-weight: initial;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-color: #FFFFFF;
  border-bottom-width: 0;
}

#cxuxjschmi .gt_subtitle {
  color: #333333;
  font-size: 85%;
  font-weight: initial;
  padding-top: 3px;
  padding-bottom: 5px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-color: #FFFFFF;
  border-top-width: 0;
}

#cxuxjschmi .gt_heading {
  background-color: #FFFFFF;
  text-align: center;
  border-bottom-color: #FFFFFF;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#cxuxjschmi .gt_bottom_border {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#cxuxjschmi .gt_col_headings {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#cxuxjschmi .gt_col_heading {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 6px;
  padding-left: 5px;
  padding-right: 5px;
  overflow-x: hidden;
}

#cxuxjschmi .gt_column_spanner_outer {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  padding-top: 0;
  padding-bottom: 0;
  padding-left: 4px;
  padding-right: 4px;
}

#cxuxjschmi .gt_column_spanner_outer:first-child {
  padding-left: 0;
}

#cxuxjschmi .gt_column_spanner_outer:last-child {
  padding-right: 0;
}

#cxuxjschmi .gt_column_spanner {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 5px;
  overflow-x: hidden;
  display: inline-block;
  width: 100%;
}

#cxuxjschmi .gt_spanner_row {
  border-bottom-style: hidden;
}

#cxuxjschmi .gt_group_heading {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  text-align: left;
}

#cxuxjschmi .gt_empty_group_heading {
  padding: 0.5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: middle;
}

#cxuxjschmi .gt_from_md > :first-child {
  margin-top: 0;
}

#cxuxjschmi .gt_from_md > :last-child {
  margin-bottom: 0;
}

#cxuxjschmi .gt_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  margin: 10px;
  border-top-style: solid;
  border-top-width: 1px;
  border-top-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  overflow-x: hidden;
}

#cxuxjschmi .gt_stub {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
}

#cxuxjschmi .gt_stub_row_group {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
  vertical-align: top;
}

#cxuxjschmi .gt_row_group_first td {
  border-top-width: 2px;
}

#cxuxjschmi .gt_row_group_first th {
  border-top-width: 2px;
}

#cxuxjschmi .gt_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#cxuxjschmi .gt_first_summary_row {
  border-top-style: solid;
  border-top-color: #D3D3D3;
}

#cxuxjschmi .gt_first_summary_row.thick {
  border-top-width: 2px;
}

#cxuxjschmi .gt_last_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#cxuxjschmi .gt_grand_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#cxuxjschmi .gt_first_grand_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-style: double;
  border-top-width: 6px;
  border-top-color: #D3D3D3;
}

#cxuxjschmi .gt_last_grand_summary_row_top {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: double;
  border-bottom-width: 6px;
  border-bottom-color: #D3D3D3;
}

#cxuxjschmi .gt_striped {
  background-color: rgba(128, 128, 128, 0.05);
}

#cxuxjschmi .gt_table_body {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#cxuxjschmi .gt_footnotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#cxuxjschmi .gt_footnote {
  margin: 0px;
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#cxuxjschmi .gt_sourcenotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#cxuxjschmi .gt_sourcenote {
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#cxuxjschmi .gt_left {
  text-align: left;
}

#cxuxjschmi .gt_center {
  text-align: center;
}

#cxuxjschmi .gt_right {
  text-align: right;
  font-variant-numeric: tabular-nums;
}

#cxuxjschmi .gt_font_normal {
  font-weight: normal;
}

#cxuxjschmi .gt_font_bold {
  font-weight: bold;
}

#cxuxjschmi .gt_font_italic {
  font-style: italic;
}

#cxuxjschmi .gt_super {
  font-size: 65%;
}

#cxuxjschmi .gt_footnote_marks {
  font-size: 75%;
  vertical-align: 0.4em;
  position: initial;
}

#cxuxjschmi .gt_asterisk {
  font-size: 100%;
  vertical-align: 0;
}

#cxuxjschmi .gt_indent_1 {
  text-indent: 5px;
}

#cxuxjschmi .gt_indent_2 {
  text-indent: 10px;
}

#cxuxjschmi .gt_indent_3 {
  text-indent: 15px;
}

#cxuxjschmi .gt_indent_4 {
  text-indent: 20px;
}

#cxuxjschmi .gt_indent_5 {
  text-indent: 25px;
}
</style>
<table class="gt_table" data-quarto-disable-processing="false" data-quarto-bootstrap="false">
  <thead>
    
    <tr class="gt_col_headings">
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="year">year</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_left" rowspan="1" colspan="1" scope="col" id="sex">sex</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_left" rowspan="1" colspan="1" scope="col" id="name">name</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="n">n</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="prop">prop</th>
    </tr>
  </thead>
  <tbody class="gt_table_body">
    <tr><td headers="year" class="gt_row gt_right">1880</td>
<td headers="sex" class="gt_row gt_left">F</td>
<td headers="name" class="gt_row gt_left">Mary</td>
<td headers="n" class="gt_row gt_right">7065</td>
<td headers="prop" class="gt_row gt_right">0.07238359</td></tr>
    <tr><td headers="year" class="gt_row gt_right">1880</td>
<td headers="sex" class="gt_row gt_left">F</td>
<td headers="name" class="gt_row gt_left">Anna</td>
<td headers="n" class="gt_row gt_right">2604</td>
<td headers="prop" class="gt_row gt_right">0.02667896</td></tr>
    <tr><td headers="year" class="gt_row gt_right">1880</td>
<td headers="sex" class="gt_row gt_left">F</td>
<td headers="name" class="gt_row gt_left">Emma</td>
<td headers="n" class="gt_row gt_right">2003</td>
<td headers="prop" class="gt_row gt_right">0.02052149</td></tr>
    <tr><td headers="year" class="gt_row gt_right">1880</td>
<td headers="sex" class="gt_row gt_left">F</td>
<td headers="name" class="gt_row gt_left">Elizabeth</td>
<td headers="n" class="gt_row gt_right">1939</td>
<td headers="prop" class="gt_row gt_right">0.01986579</td></tr>
    <tr><td headers="year" class="gt_row gt_right">1880</td>
<td headers="sex" class="gt_row gt_left">F</td>
<td headers="name" class="gt_row gt_left">Minnie</td>
<td headers="n" class="gt_row gt_right">1746</td>
<td headers="prop" class="gt_row gt_right">0.01788843</td></tr>
    <tr><td headers="year" class="gt_row gt_right">1880</td>
<td headers="sex" class="gt_row gt_left">F</td>
<td headers="name" class="gt_row gt_left">Margaret</td>
<td headers="n" class="gt_row gt_right">1578</td>
<td headers="prop" class="gt_row gt_right">0.01616720</td></tr>
  </tbody>
  
  
</table>
</div>

]

---

```r
library(DT)
tx_names %>% 
  datatable()
```

<div class="datatables html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-e5e3a6f8dafe0515a7bf" style="width:100%;height:auto;"></div>
<script type="application/json" data-for="htmlwidget-e5e3a6f8dafe0515a7bf">{"x":{"filter":"none","vertical":false,"data":[["1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18","19","20","21","22","23","24","25","26","27","28","29","30","31","32","33","34","35","36","37","38","39","40","41","42","43","44","45","46","47","48","49","50","51","52","53","54","55","56","57","58","59","60","61","62","63","64","65","66","67","68","69","70","71","72","73","74","75","76","77","78","79","80","81","82","83","84","85","86","87","88","89","90","91","92","93","94","95","96","97","98","99","100","101","102","103","104","105","106","107","108","109","110","111","112","113","114","115","116","117","118","119","120","121","122","123","124","125","126","127","128","129","130","131","132","133","134","135","136","137","138","139","140","141","142","143","144","145","146","147","148","149","150","151","152","153","154","155","156","157","158","159","160","161","162","163","164","165","166","167","168","169","170","171"],[1892,1894,1896,1899,1900,1903,1904,1905,1906,1907,1908,1909,1910,1911,1912,1913,1914,1915,1915,1916,1917,1917,1918,1918,1919,1919,1920,1921,1921,1922,1923,1924,1925,1925,1926,1927,1928,1929,1930,1931,1932,1933,1934,1935,1936,1937,1938,1939,1940,1941,1942,1943,1944,1945,1946,1947,1948,1949,1950,1951,1952,1953,1954,1955,1956,1957,1958,1959,1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1970,1971,1972,1973,1973,1974,1975,1975,1976,1976,1977,1977,1978,1978,1979,1979,1980,1980,1981,1981,1982,1982,1983,1983,1984,1984,1985,1985,1986,1986,1987,1987,1988,1988,1989,1989,1990,1990,1991,1991,1992,1992,1993,1993,1994,1994,1995,1995,1996,1996,1997,1997,1998,1998,1999,1999,2000,2000,2001,2001,2002,2002,2003,2003,2004,2004,2005,2005,2006,2006,2007,2007,2008,2008,2009,2009,2010,2010,2011,2011,2012,2012,2013,2013,2014,2014,2015,2015,2016,2016,2017,2017],["F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F","F"],["Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Austin","Dallas","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Dallas","Austin","Dallas","Dallas","Dallas","Dallas","Austin","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Dallas","Austin","Dallas","Dallas","Dallas","Austin","Dallas","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin","Dallas","Austin"],[9,6,7,6,9,9,9,12,8,7,14,11,20,19,24,16,28,30,5,38,26,5,35,10,27,6,31,35,5,34,45,45,42,6,34,43,37,30,37,32,33,35,21,31,25,26,38,34,22,19,45,35,34,32,36,30,33,25,22,43,47,52,48,38,29,31,32,32,43,23,31,27,29,19,30,20,37,36,72,5,47,41,44,5,36,35,7,54,9,53,7,84,17,110,30,117,32,119,43,86,51,80,65,110,74,88,85,103,91,112,99,134,123,147,110,156,106,144,103,351,176,450,187,467,228,447,172,438,156,343,128,285,114,236,73,243,52,209,130,209,201,187,153,188,152,178,91,207,103,198,87,197,91,213,95,221,93,236,85,289,84,458,107,523,121,551,153,479,117,519,137],[4.002e-05,2.543e-05,2.778e-05,2.424e-05,2.832e-05,3.235e-05,3.078e-05,3.873e-05,2.552e-05,2.074e-05,3.949e-05,2.988e-05,4.767e-05,4.3e-05,4.091e-05,2.443e-05,3.515e-05,2.93e-05,4.88e-06,3.5e-05,2.314e-05,4.45e-06,2.911e-05,8.32e-06,2.299e-05,5.11e-06,2.492e-05,2.735e-05,3.91e-06,2.725e-05,3.593e-05,3.473e-05,3.325e-05,4.75e-06,2.764e-05,3.478e-05,3.095e-05,2.592e-05,3.172e-05,2.9e-05,2.983e-05,3.346e-05,1.94e-05,2.853e-05,2.32e-05,2.36e-05,3.329e-05,2.998e-05,1.862e-05,1.525e-05,3.236e-05,2.439e-05,2.488e-05,2.377e-05,2.232e-05,1.65e-05,1.894e-05,1.424e-05,1.251e-05,2.328e-05,2.471e-05,2.696e-05,2.411e-05,1.896e-05,1.408e-05,1.478e-05,1.55e-05,1.54e-05,2.067e-05,1.108e-05,1.529e-05,1.358e-05,1.482e-05,1.04e-05,1.709e-05,1.165e-05,2.164e-05,2.042e-05,3.93e-05,2.73e-06,2.682e-05,2.543e-05,2.831e-05,3.22e-06,2.299e-05,2.243e-05,4.49e-06,3.435e-05,5.73e-06,3.222e-05,4.26e-06,5.11e-05,1.034e-05,6.384e-05,1.741e-05,6.572e-05,1.797e-05,6.655e-05,2.405e-05,4.741e-05,2.811e-05,4.471e-05,3.633e-05,6.101e-05,4.105e-05,4.767e-05,4.605e-05,5.583e-05,4.932e-05,5.977e-05,5.283e-05,6.97e-05,6.398e-05,7.38e-05,5.522e-05,7.595e-05,5.161e-05,7.083e-05,5.066e-05,0.00017512,8.781e-05,0.00022829,9.487e-05,0.00023961,0.00011698,0.00023266,8.953e-05,0.0002285,8.138e-05,0.00017969,6.706e-05,0.00014706,5.882e-05,0.00012126,3.751e-05,0.00012181,2.607e-05,0.00010555,6.566e-05,0.00010588,0.00010183,9.325e-05,7.629e-05,9.323e-05,7.537e-05,8.776e-05,4.487e-05,9.909e-05,4.93e-05,9.363e-05,4.114e-05,9.467e-05,4.373e-05,0.00010529,4.696e-05,0.00011285,4.749e-05,0.00012196,4.393e-05,0.00014926,4.338e-05,0.00023806,5.562e-05,0.00026798,6.2e-05,0.00028324,7.865e-05,0.00024839,6.067e-05,0.00027681,7.307e-05]],"container":"<table class=\"display\">\n  <thead>\n    <tr>\n      <th> <\/th>\n      <th>year<\/th>\n      <th>sex<\/th>\n      <th>name<\/th>\n      <th>n<\/th>\n      <th>prop<\/th>\n    <\/tr>\n  <\/thead>\n<\/table>","options":{"columnDefs":[{"className":"dt-right","targets":[1,4,5]},{"orderable":false,"targets":0}],"order":[],"autoWidth":false,"orderClasses":false}},"evals":[],"jsHooks":[]}</script>

---

# leaflet
]

```r
library(leaflet)
leaflet() %>% addTiles() %>% setView(lat = 30.2621, lng = -97.7382, zoom = 17)
```

<div class="leaflet html-widget html-fill-item-overflow-hidden html-fill-item" id="htmlwidget-eb147e47a7decc066e90" style="width:504px;height:504px;"></div>
<script type="application/json" data-for="htmlwidget-eb147e47a7decc066e90">{"x":{"options":{"crs":{"crsClass":"L.CRS.EPSG3857","code":null,"proj4def":null,"projectedBounds":null,"options":{}}},"calls":[{"method":"addTiles","args":["https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png",null,null,{"minZoom":0,"maxZoom":18,"tileSize":256,"subdomains":"abc","errorTileUrl":"","tms":false,"noWrap":false,"zoomOffset":0,"zoomReverse":false,"opacity":1,"zIndex":1,"detectRetina":false,"attribution":"© <a href=\"https://openstreetmap.org\">OpenStreetMap<\/a> contributors, <a href=\"https://creativecommons.org/licenses/by-sa/2.0/\">CC-BY-SA<\/a>"}]}],"setView":[[30.2621,-97.7382],17,[]]},"evals":[],"jsHooks":[]}</script>
]

---

# ggplot

```r
library(ggplot2)
tx_names %>% group_by(name) %>%summarise(count =n()) %>% 
  ggplot(aes(x=name,y=count)) + geom_col()
```

---

# Code and plot side by side
.pull-left[

```r
tx_names %>% 
  group_by(name) %>%
  summarise(count =n()) %>% 
  ggplot(aes(x=name,y=count)) + 
  geom_col()
```
]
.pull-right[
![](data:image/png;base64,#xaringan_sample_files/figure-html/unnamed-chunk-1-1.png)
]